PPPPPPPPPPPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 
PP PPP 


PP PPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 


AAAAAAAAA 

AAAAAAAAA 

AAAAAAAAA 
aka AAA 
AAA AaB 
AAA AAR 
AAA AAA 
AAA AAA 
AA AKA 
AAA AAA 
AAA AAA 
AAA AAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAA AAA 
AAA AAA 
AAA RAD 
AAA AAA 
AAA AAA 
AAA AAA 


RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRR 

RRR 

RRR 

RRR 

RRR 

RRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRR = RRR 
RRR = RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR 

RRR 

RRR 


—— 


tt tt Ht tt St SH A HH A at HH Ht 
A a tH SH tH Ht 
tt tH SH Ht HH HHH 


LLLLLLLLLLLLLLL 
LLLLLLLLLLLLLLL 
LLLLLLLLLLLLLLL 


| **F 1LE**1D**PASWRIBOO 
PPPPPPPP AAAAAA SSSSSSSS WW WW RRRRRRRR IIIIII BBBBBBBB 000000 000000 ‘ 
PPPPPPPP AAAAAA SSSSSSSS_ WW WW RRRRRRRR IIII1I1 BBBBBBBB 000000 000000 ‘ 
PP PP AA AA SS Wi WwW RR RR II BB BB OO 00 00 00 ‘ 
PP PP AA AA SS Wid WW RR RR II BB BB OO 00 OO 00 ‘ 
PP PP AA AA SS Wh WW RR RR Il BB BB OO 00 OO 00 ‘ 
PP PP AA AA SS WW WW RR RR II BB BB OO 00 00 00 ° 
PPPPPPPP AA AA SSSSSS Wl WW RRRRRRRR II BBBBBBBB 00 00 O00 00 } ; 
PPPPPPPP AA AA SSSSSS Wl WW RRRRRRRR II BBBBBBBB 00 00 OO 00 | : 
PP AAAAAAAAAA SS WW WW WW RR RR Il BB BB 00 00 OO 00 | ‘ 
PP AAAAAAAAAA SS WW WW WW RR RR I] BB BB 00 00 OO 00 . 
PP AA AA SS WWwWW WWWW RR RR II BB BB 00 00 OO 00 eae ’ 
PP AA AA SS WWWW WWwWW RR RR II BB BB 00 00 00 00 sees 3 
PP AA AA SSSSSSSS Wid Ww RR RR IIIIII BBBBBBBB 000000 000000 nits 3 
PP AA AA SSSSSSSS WW Ww RR RR IIIIII BBBBBBBB 000000 000000 mapa ‘ 
LL IIIIII SSSSSSSS : 
LL IIIIII SSSSSSSS : 
LL Il SS ‘ 
LL I] SS : 
La I] SS ‘ 
Li II SS ‘ 
LL 1] SSSSSS ‘ 
LL II SSSSSS : 
LL Il SS | ‘ 
LL II SS ‘ 
LL 11 SS ‘ 
LL I] SS ‘ 
LLLLLLLLLL IIII11 SSSSSSSS ‘ 
LLLLLLLLLL III SSSSSSSS : 
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PASSWRITE_BOOLE Write a boolean value 16 -Sep-1984 9 13:0 AX=-11 Bliss-32 V4.0-74 Page 1 
14-Sep-1984 2:52:02 PASRTL’S Resp ASWRIBO0O.B52;1 (1) > 


; 1 0001 0 MODULE PASSWRITE_BOOLEAN ( BrATLe ‘Write a boolean value’ : 
; ¢ sit 4 8 TDENT = '1-00 ! File: PASWRIBOO.B32 Edit: SBL1002 ; 
: 4 0004 1 BEGIN : 
; 5 0005 1! : 
3 6 44) 1 VRE REAR RERA EAR A ERR EREAE REE EEREEEEEEEEEAEAAREAEEEEEEAEAEAEAEARARRKEAEEEEEE P 
: 7 0007 1 !* ; 
3 8 0008 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * ; 
H 9 0009 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * : 
H 19 Oot) : = ALL RIGHTS RESERVED * : 
; \¢ porg 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND coptee * : 
. 9% 0015 1 !* ONLY IN ACCORDANCE WITH ERMS OF SUCH LICENSE AND WITH THE * ; 
; 0014 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * | ; 
Me: 0015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * : 
; 0016 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * | : 
: i sd FA : i TRANSFERRED. * : 
: '® ea Py 
; 0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * : 
; 20 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * : 
: $3 Os) : h CORPORATION. * : 
s '® ¥ } Ps 
: 56 0025 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * ; 
; 624 0024 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * . 
3; @ 0025 1 !* * : 
; 2 0026 1 !* * ; 
: ev QO27 1 ee eee RRR RARER ERRATA EERE ARERR REET PY 
i & 0028 1! : 
a 0029 1 : 
; 3 0030 1 !++ : 
i: oe 0031 1 ! FACILITY: Pascal Language Support : 
aA ae 0032 1! : 
‘i 0033 1 | ABSTRACT: : 
; 2 0034 1! : 
ee 0035 1 | This module contains a procedure which writes a boolean value | : 
; 36 0036 1! to a textfile. : 
c= Be 0037 1! : 
; 3 st ! ENVIRONMENT: User mode - AST reentrant : 
3 re srk : AUTHOR: Steven B. Lionel, CREATION DATE: 1-April-1981 : 
; 642 0042 1 ! MODIFIED BY: : 
s 5 0045 1! 3 
; 0044 1 ! 1-001 - Original. SBL 1-April-1981 3 
s 65 0045 1! 1-002 - Make total-width a lLongword. SBL 29-Jun-1982 ; 
: 46 0046 1 i- : 
3; «€f 0047 1 : 


——? 
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RA SWRITE_BOOLE Write a boolean value 16-Sep-1984 :15:17 AX-11 Bliss-32 V4.0- P | 

~602 Declarations 1e8e-1984 13:52:02  LPASRTL SRESPASURIBOO. B82; 1 age 35 | 
3 8 ei ] ASBTTL ‘Declarations’ : 
: 3] 050 1 | PROLOGUE DEFINITIONS: ; 
: 3g 005¢ Rh : 
: re B938 ! REQUIRE ‘RTLIN:PASPROLOG'; ! Externals, Linkages, PSECTs, structures : 
: 56 0118 1! : 
g ef HEN ; TABLE OF CONTENTS: ; 
: §9 $184 os : 
; 60 01¢¢ 1 FORWARD ROUTINE | ; 
: 661 01 1 AS$WRITE_ BOOLEAN: NOVALUE, ' Write to textfile F 
; o¢ Biss ! PASSURITED BOOLEAN: NOVALUE; ! Write to string ; 
: 64 $158 1! | : 
; «665 0127 1 | MACROS: : 
3 666 0128 1! ; 
: «67 0129 1 NONE : 
; «(68 $130 1 i : 
; $8 o13) | EQUATED SYMBOLS: : 
i 0133 1! NONE : 
; 72 0134 1! : 
ci we 0135 1! FIELDS: : 
> «676 0136 1! : 
; 0137 1! NONE : 
; 76 0138 1! : 
3 a 484 } OWN STORAGE: : 
; 79 0141 1: NONE ; 
3 0142 1! : 


SIDE EFFECTS: 

If the file is the standard file INPUT or OUTPUT, it is implicitly opened. 
SIGNALLED ERRORS: 

See PASSWRITE_ENUMERATED 


BEGIN 


CAL 
PFV_ADDR: VOLATILE, ' Enable argument 
UNWIND_ACT: VOLATILE, i Enable argument 
ERROR_ADDR: VOLATILE; 


PASSWRITE_BOOLE Write a boolean value a 15:17 AxX-11 Bliss-32 V4.0-74 Pa 

1-002 PASSWRITE_ BOOLEAN. - Write a boolean to textfile 1 at fs 953] 7:52:02 PASRTL.SRCJPASWRIBOO.B32;1 = 3h 
; § 0143 1 XSBITL 'PASSWRITE BRITE” B00 - write a boolean to textfile’ 

a 144 1 GLOBAL ROUTINE et rel 

3 4 145 1 Pre vite AVARIABLE, ' File variable 

3 5 146 1 BOULEAN: andy ' Value to write 

; @©86 0147 1 L WIDTH: SIGNED, ' Total field width 

; 687 0148 1 ' Error unwind address 

: Hy 8132 : ): NOVACUE = 

: 90 0151 1 S44 

; 4! $128 i FUNCTIONAL DESCRIPTION: 

; + B13 : This procedure writes a boolean value to the specified textfile. 

; 95 0196 CALLING SEQUENCE: 

; 44 B126 : CALL PASSWRITE_BOOLEAN (PFV. a - | oem rv.v, TOTAL_WIDTH.rl.v 

: 99 0160 11 spare ao 

: 106 0161 FORMAL PARAMETERS: | 
: 2 ores 1: PFV - The Pascal File Variable (PFV) passed ay reference. | 
: 3 the : The structure of the PFV is defined in PASPFV.REQ. 
; 5188 : BOOLEAN - The boolean value to write. | 
; 0168 TOTAL_WIDTH - Total field width. | 
; Boy : ERROR - Optional. Address to unwind to if an error occurs. 

: O17¢ IMPLICIT INPUTS: | 
; 0174 1! NONE | 
4 0175 1! 
; 9 3 IMPLICIT OUTPUTS: | 
: 0178 1: NONE | 
3 0179 1: 
$ 3 $9 : ROUTINE VALUE: 
: | eaten 
: 0184 1 

3 0185 1! 

; 0186 1! 

3 0187 1! 

3 0188 1! 

3 0189 1! 

; 0190 1! 

3 0191 1: 

3 0 3 1 i- 

; 0193 1 

3 0194 

j 0195 

; 0196 

é 019 

3 019 

: 99 2 


a ke a ad ad et = = as st ws = 8“ Us 2 
WWW NINN WIARPPOPONONPONNND 2 SS SS OOD OOOO OOOO 
BARN SS ONO RUN OOMDNAUE UNIO OR NOR Oo 


! Enable argument 
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1-002 PASSWRITE "BOOLEAN - Write a boolean to textfile 12736 0- 1484 4 93: $34 02 PASRTL.SR RCIP ASuRIa00.B92:1 _ (3) 1- 
; 139 0 3 
; 140 8 $f BUILTIN ; 
s 76) 8 ¢ ACTUALCOUNT; 5 
: 136 0 $ 
> (14 0204 ENABLE ; 
; ize 8 b2 PASSSIO_HANDLER (PFV_ADDR, UNWIND_ACT, ERROR_ADDR); ! Enable error handler ‘ 
Bae oe Be ae i ; 
° 4 et parameter, present. P 
3; «(148 0209 te $ 
: 149 0210 3 
; 129 8 1} IF ACTUALCOUNT () GEQU 4 : 
; 136 0918 § ERROR_ADDR = .ERROR; ! Set unwind address : 
: 154 $548 2 PFV_ADDR = PFV CPFVSR_PFV]; ! Set PFV address : 
: 155 o518 2 3 
s 156 0217 2 ‘+ 3 
s . TS7 0218 2 ' Call PASSWRITE_ENUMERATED to do the work. . 
s 158 0219 2 !- 3 
; 159 0220 § ; 
; 160 0221 mee: EVER Prva. ( . 
3: 6161 O55§ 2 Vv CPBFVS$R_PFV ' File variable ; 
s 162 0223 2 PASSSGR BOOLEAN. PETD, ! Enumerated type descriptor for type BOOLEAN : 
: 163 0224 2 «BOOLEAN [ ' Value to write 5 
> 164 0225 2 TOTAL AUIDTHS : i Field width : 
3; 165 0226 2 3 
; 166 0227 2 RETURN; ‘ 
s 167 0228 2 3 
; 168 0229 1 END; ! End of routine PASS$SWRITE_BOOLEAN ; 
-TITLE PaSSues TE BOOLEAN Write a boolean value 3 
IDENT \1=002\ | ; 
-EXTRN PASS$WRITE BOOLEAN 3 
-EXTRN PASS$WRITET BOOLEAN : 
-EXTRN PAS$$I0_HANDLER é 
-EXTRN PASSURITE ENUMERATED ; 
-EXTRN PASS$S$GR _BOOLEAN_ PETD | ; 
-PSECT _PASSCODE,NOWRT, SHR, PIC,2 : 
0000 0008 -ENTRY PASSWRITE_BOOLEAN, Save nothing ; 0144 é 
5E 08 C2 00002 SUBL2 #8, SP ; . 
7E be 00005 CLRL ERROR ADDR 3; 0194. FY 
04 AE C 00007 CLRQ yawn ACT ‘ é 
6D 0029 CF ODE Benoa MOVAL 3 
04 6C 91 QOOOF MPB (AP), pe ; 0211 PF 
04 1F 00012 BLSSU : 5 
6E 10 AC DO 00014 MOVL ERROR, ERROR_ADDR ; 0213. é 
08 AE 04 AC 00 00018 18 MOVL PFV, PFV_ADDR : 0215 | ; 
0C AC DD 00010 PUSHL TOTAL uIBtH 3 0225. : 
7E 08 AC 1 00 fr 0020 EXTZV BOOLEAN, (SP) ; 0 $3 | é 
000000006 00 9F 00026 PUSHAB MR ectle _BOOLEAN.PETD : 0222 | : 
04 AC DD 0002C PUSHL PFYV Z $ 
000000006 00 04 FB 0002F CALLS #4, PASSWRITE_ENUMERATED 3 3 


PASSWRITE _BOOLE 
i802 


vw 
oo 


7E 
000000006 00 


3; Routine Size: 


1 
1 !<BLF/PAGE> 
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PASSWRITE_BOOLE Write a boolean value ab at 9 0613: Nf AX-11 ot St} Meso a8 Page 6 Ne 
1 2 PASSWRITEV_BOOLEAN = Write BOOLEAN to string 14-Sep-1984 752:02 PASRTL.SRCJPASWRIBOO.B32;1 (4) . 
: 178 § 1 ZSBITL ‘PASSWRITEV_ BOOLEAN = Write BOOLEAN to string’ 
: 17 1 GLOBAL ROUTINE PASSWRITEV_BOOLEAN ( 
; (176 4 1 MAX_LENGTH: WORD, ! Maximum Length of string 
s 175 > F STRING LINE: REF VECTOR C, wORD], ! String to write to 
$ 178 § 1 BOOLEA ' Value to write 
ay 1 TOTAL_WIDTH: SIGNED, i Total field width 
; 178 0238 1 ERROR ' Error unwind address 
; 179 0239 1 ) : NOVALUE = 
; 180 0240 1 
; «6181 0241 1 !4¢4 
3 186 0 tg : FUNCTIONAL DESCRIPTION: 
$ 13e 0 te : } This procedure writes a BOOLEAN to the specified string. 
3 136 8 rf : CALLING SEQUENCE: 
; 188 0248 1 CALL _PAS$WRITEV_BOOLEAN (MAX_LENGTH.rw.v, STRING_LINE.wvt.r, 
3 4 $3 : BOOLEAN.rv.v, TOTAL_WIDTH.rl.v C, ERROR.j.rJ) 
3; «6191 ose 1 ! FORMAL: PARAMETERS: 
$ 135 0636 1! 
3 bk 0$27 : MAX_LENGTH - The maximum Length of STRING_LINE. 
3 + 4 0985 : : STRING_LINE - A varying string to which the output will be appended. 
: 197 0257 1! BOOLEAN - The value to write. 
; 198 9528 1} ; 
: 199 0259 1! TOTAL_WIDTH - The width of the ‘ield to write. 
: 200 0260 1! ; 
s 220i 0261 17! ERROR - Optional. If specified, the address to unwind to 
; 202 bees 1! in case of an error. 
: 203 0263 1! 
; 204 0264 1 =! IMPLICIT INPUTS: 
; 205 0265 1! 
; 206 0266 1! NONE 
: 207 0267 1! 
: 208 0268 1 ! IMPLICIT OUTPUTS: 
; 209 0269 1! 
: 210 0270 1! NONE 
s (etl 0271 1! 
; sig psi ¢ 1 ! ROUTINE VALUE: 
; a 0273 1! 
; 216 0274 1! NONE 
3 $1? Ost? 1! 
; 16 76 1! SIDE EFFECTS: 
: 444 ogee 1! 
; 218 0278 1! NONE 
: 19 0279 1! 
; 20 ogee 1 ! SIGNALLED ERRORS: 
: 221 0281 1! 
; 22 aSa¢ 1! See PASSWRITE_BOOLEAN 
s $$7 ose 1! 
3; 226 0284 1 !-- 
3 €e> ose 1 
; 226 0286 BEGIN 
: 2e7 0287 
: 228 0288 LOCAL 


PASSWRITE_BOOLE Write a boolean value 16-Sep-1984 02:15:17 Ak-11 Bliss-32 V4.0-74 S 7 
A008 PASSWRITEV_BOOLEAN = Write BOOLEAN to string 1 730071383 95:4 :02 PASRTL. RePASuR B00. B92: os 
; 3 34 PFV: SPASSPFV_FIL VARIABLE, ' Pascal File Variable 
3 0 ARG_LIST: VECTOR [&%, LONG), ! Argument Uist 
3 1 91 PFV_ADDR: VOLATILE, ! Enable argument 
; ¢ 36 UNWIND_ACT: VOLATILE, ! Enable argument 
; 7 ERROR_ADDR: VOLATILE; ! Enable argument | 
: 235 95 BUILTIN 
: § 8 38 ACTUALCOUNT; ! Count of arguments | 
3 938 0298 ENABLE | 
3 39 0 99 PASSSIO_HANDLER (PFV_ADDR, UNWIND_ACT, ERROR_ADDR); ! Enable error handler | 
a 0391 i" ERROR if | 
3 : Get arameter, t. 
248 8306 a parameter presen | 
> 246 0304 
3 245 0305 IF ACTUALCOUNT () GEQU 5 
> 246 0306 THEN 
: sta $44 ERROR_ADDR = .ERROR; ! Set unwind address 
Z 349 0309 PFV_ADDR = PFV CPFVSR_PFV); ! Set PFV address 
: $3) 0312 i set up ARG_LIST | 
° - oe e 
238 031 — 
3; 254 0314 
; 255 0315 ARG_LIST (0) = 3; ! Three arguments 
; 256 0316 ARG-LIST [1] = PFv CPFVSR_PFV); i PFV address 
; 257 0317 ARG_LIST @] = .BOOLEAN; i Value to write 
3 338 0318 ARG-LIST £3) = .TOTAL_WIDTH; i Field width | 
: 260 0320 é ‘+ 
; 261 0321 2 ! Call PAS$S$DO_WRITEV to do the work, giving it the address of 
; 262 Ose 2 i PASSWRITE BOOLEAN to call. | 
3; 26 032 in 
3 264 0324 2 
3 265 0325 2 PASSSDO WRITEV. (PFY CPFVSR_PFVI. .MAX_LENGTH, STRING_LINE COJ, ARG_LIST, : 
; 367 0327 2 > ; : 
: 268 0328 § RETURN; 3 
3; 269 0329 | : 
; 270 0330 1 END; ! End of routine PAS$SWRITEV_BOOLEAN | : 
Ur uR i 
.EXTRN PAS$$DO_WRITEV | : 
007¢ 00000 -ENTRY PASSWRITEV_BOOLEAN, Save R2,R3,R4,R5,R6 : 0233 | 
5€ 38 C2 00002 SUBL2 #40, SP : 
a eC et too! 
6D 0089 tf DE OO00A MOVAL 980 CFP) : | 
0 6¢ 91 O00F CHP (AP), #5 ; 0305 | 
6E 14 AC D0 00014 MOVL ERROR, ERROR_ADDR : 0 07 | 
08 AE “ a i 0018 1$: MOVAB FV, PFV_ADDR : 0309 
C AE 03 DO 0001D MOVL #3, ARG_CIST ; 0315 
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PASSWRITE_BOOLE Write a boolean value 1$- -Sep-1984 t 98: 13:2 AX-11 BLli {ees -32 V vat Page 8 
1-002 PASSURITEV _BOOLEAN = “rite BOOLEAN to string 14-Sep-1984 2:02 PASRTL.SRCJPASW Niaoo. B32;1 (4) 
10 AE NC AE 9& 00021 MOVAB FV, ARG_LIST+ : 0316, 
14 AF 9¢ AC 7D 00026 MOVO BOOLEAN, “ARG lists +8 > 0317) 
; FF CF 9E 000 : MOVAB PASSWRITE -BOOLEAN, RS : 0325" 
4 OC AE 9E 000 MOVAB ARG_LIST, : | 
36 if AE 4 0034 MOVAB V : | 
5 08 AC p 0038 MOVL STRING LINE, ae : 
52 04 aC C 000 3 MOVZ2WL MAX_LENGTH F 
000000006 00 16 0004 TSB PASSSDO. URI TE ; | 
04 00 4g R : 0330 
0000 00047 2$ . WORD geyser nothing 3; 0286) 
50 08 AC DO 00049 MOVL RO : 
50 04 a9 BO 00040 i 4(RO), RO : | 
D4 AO 9F 00051 PUSHAB ERROR ADDR : | 
D8 AD 9F 00054 PUSHAB UNWIND ACT : | 
DC AO 9F 00057 PUSHAB PFV_ADBR : 
03 DD 0005A PUSHL #3 ; 
5E DD 0005C PUSHL ; | 

7E 04 AC 70 0005 MOV. 4(AP), -(SP) 
000000006 00 03 FB 0006 CALLS #3, PASS$$IO_HANDLER ; | 
04 00069 RET ; 

; Routine Size: 106 bytes, Routine Base: _PASSCODE + 005A 


271 0331 1 
272 0332 1 !<BLF/PAGE> 


[ 


M12 
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1-002 PASSWRITEV_BOOLEAN = Write BOOLEAN to string 1a-Sep- 1984 2:02 PASRTL.SRCJPASWRIBOO. 3 2:1 (5) | 
ifs a3 1 END ! End of module PASSWRITE_BOOLEAN | 
7% 0335 0 ELUDOM 


PSECT SUMMARY 
Name Bytes Attributes 
PASSCODE 196 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


| 
| 
! 
| 
| 
Library Statistics 
| 


hee ee eee ee wae Syabols ooooo<oe Pages Processing 

; File Total Loaded Percent Mapped Time 

: _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 0 0 581 00:01.0 

: ~$255$DUA28: CPASRTL.OBJJPASLIB.L32;1 427 26 6 33 00:00.4 
a 

; COMMAND QUALIFIERS 


BLISS/CHECK=CFIELD, INITIAL OPTIMIZE) /NOTRACE/LIS=L ISS :PASUR1B00/08)=08JS : PASWRIBOO MSRC$:PASWRIBOO/UPDATE=(ENHS$: PASWRIBOO | 
| 


277 0336 0 
Size: 196 code + 0 data bytes 
Run Time: 00:05.5 
Elapsed Time 00:20.0 
Lines/CPU Min: 3645 1 
Lexemes/CPU-Min: 9254 


Memory Used: 50 pages . 
Compication Complete 


AH-BT13A-SE 
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